home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / 2.01 sources / Library-2.01 / Interfaces / script.lisp < prev   
Encoding:
Text File  |  1993-09-16  |  51.8 KB  |  1,267 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :traps)             ; 
  3. ; Created: Tuesday, January 15, 1991 at 8:56 AM
  4. ;     Script.p
  5. ;     Pascal Interface to the Macintosh Libraries
  6. ; 
  7. ;         Copyright Apple Computer, Inc.    1986-1990
  8. ;         All rights reserved
  9. ; 
  10.  
  11. ;;;;;;;;;;;;;
  12. ;
  13. ; Modification History
  14. ;
  15. ; 04/28/93 mwp Release
  16. ; 04/29/92 bill Typo in #_getdeffontsize
  17. ; ------------- 2.0
  18. ; 10/31/91 bill Bring back some not-in-rom traps.
  19. ; 08/29/91 bill get rid of :invalid-type
  20. ; 08/23/91 bill A few traps did not preserve argument evaluation order.
  21. ;               _FormatX2Str had an :unknown-type.  Change it to :ptr
  22. ;
  23.  
  24. ; $IFC UNDEFINED UsingIncludes
  25. ; $SETC UsingIncludes := 0
  26. ; $ENDC
  27.  
  28. ; $IFC NOT UsingIncludes
  29.  
  30. ; $ENDC
  31.  
  32. ; $IFC UNDEFINED UsingScript
  33. ; $SETC UsingScript := 1
  34.  
  35. ; $I+
  36. ; $SETC ScriptIncludes := UsingIncludes
  37. ; $SETC UsingIncludes := 1
  38. ; $IFC UNDEFINED UsingTypes
  39.  
  40. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  41. ; $ENDC
  42. ; $IFC UNDEFINED UsingOSUtils
  43.  
  44. (require-interface 'OSUTILS)    ; $I $$Shell(PInterfaces)OSUtils.p
  45. ; $ENDC
  46. ; $IFC UNDEFINED UsingQuickdraw
  47.  
  48. (require-interface 'QUICKDRAW)  ; $I $$Shell(PInterfaces)Quickdraw.p
  49. ; $ENDC
  50. ; $SETC UsingIncludes := ScriptIncludes
  51.  
  52. ;  Script System constants 
  53. (defconstant $smSystemScript -1); designates system script.
  54. (defconstant $smCurrentScript -2); designates current font script.
  55.  
  56. (defconstant $smRoman 0)        ; Roman
  57. (defconstant $smJapanese 1)     ; Japanese
  58. (defconstant $smTradChinese 2)  ; Traditional Chinese
  59. (defconstant $smKorean 3)       ; Korean
  60. (defconstant $smArabic 4)       ; Arabic
  61. (defconstant $smHebrew 5)       ; Hebrew
  62. (defconstant $smGreek 6)        ; Greek
  63. (defconstant $smCyrillic 7)     ; Cyrillic
  64. (defconstant $smRSymbol 8)      ; Right-left symbol
  65. (defconstant $smDevanagari 9)   ; Devanagari
  66. (defconstant $smGurmukhi 10)    ; Gurmukhi
  67. (defconstant $smGujarati 11)    ; Gujarati
  68. (defconstant $smOriya 12)       ; Oriya
  69. (defconstant $smBengali 13)     ; Bengali
  70. (defconstant $smTamil 14)       ; Tamil
  71. (defconstant $smTelugu 15)      ; Telugu
  72. (defconstant $smKannada 16)     ; Kannada/Kanarese
  73. (defconstant $smMalayalam 17)   ; Malayalam
  74. (defconstant $smSinhalese 18)   ; Sinhalese
  75. (defconstant $smBurmese 19)     ; Burmese
  76. (defconstant $smKhmer 20)       ; Khmer/Cambodian
  77. (defconstant $smThai 21)        ; Thai
  78. (defconstant $smLaotian 22)     ; Laotian
  79. (defconstant $smGeorgian 23)    ; Georgian
  80. (defconstant $smArmenian 24)    ; Armenian
  81. (defconstant $smSimpChinese 25) ; Simplified Chinese
  82. (defconstant $smTibetan 26)     ; Tibetan
  83. (defconstant $smMongolian 27)   ; Mongolian
  84. (defconstant $smGeez 28)        ; Geez/Ethiopic
  85. (defconstant $smEthiopic 28)    ; Synonym for smGeez
  86. (defconstant $smEastEurRoman 29); Synonym for smSlavic
  87. (defconstant $smVietnamese 30)  ; Vietnamese
  88. (defconstant $smExtArabic 31)   ; extended Arabic
  89. (defconstant $smUninterp 32)    ; uninterpreted symbols, e.g. palette symbols
  90.  
  91. ; Obsolete names for script systems (kept for backward compatibility)
  92. (defconstant $smChinese 2)      ; (use smTradChinese or smSimpChinese)
  93. (defconstant $smRussian 7)      ; (old name for smCyrillic)
  94.  
  95. ;  smMaldivian = 25;                                 (no more smMaldivian!)
  96. (defconstant $smAmharic 28)     ; (old name for smGeez)
  97. (defconstant $smSlavic 29)      ; (old name for smEastEurRoman)
  98. (defconstant $smSindhi 31)      ; (old name for smExtArabic)
  99.  
  100. ;  Calendar Codes 
  101. (defconstant $calGregorian 0)
  102. (defconstant $calArabicCivil 1)
  103. (defconstant $calArabicLunar 2)
  104. (defconstant $calJapanese 3)
  105. (defconstant $calJewish 4)
  106. (defconstant $calCoptic 5)
  107. (defconstant $calPersian 6)
  108.  
  109. ;  Integer Format Codes 
  110. (defconstant $intWestern 0)
  111. (defconstant $intArabic 1)
  112. (defconstant $intRoman 2)
  113. (defconstant $intJapanese 3)
  114. (defconstant $intEuropean 4)
  115. (defconstant $intOutputMask #x8000)
  116.  
  117. ;  CharByte byte types 
  118. (defconstant $smSingleByte 0)
  119. (defconstant $smFirstByte -1)
  120. (defconstant $smLastByte 1)
  121. (defconstant $smMiddleByte 2)
  122.  
  123. ;  CharType field masks 
  124. (defconstant $smcTypeMask #xf)
  125. (defconstant $smcReserved #xf0)
  126. (defconstant $smcClassMask #xf00)
  127. (defconstant $smcOrientationMask #x1000); two-byte script glyph orientation
  128. (defconstant $smcRightMask #x2000)
  129. (defconstant $smcUpperMask #x4000)
  130. (defconstant $smcDoubleMask #x8000)
  131.  
  132. ;  Basic CharType character types 
  133. (defconstant $smCharPunct #x0)
  134. (defconstant $smCharAscii #x1)
  135. (defconstant $smCharEuro #x7)
  136. (defconstant $smCharExtAscii #x7);  More correct synonym for smCharEuro 
  137.  
  138. ;  Additional CharType character types for script systems 
  139. (defconstant $smCharKatakana #x2); Japanese Katakana
  140. (defconstant $smCharHiragana #x3); Japanese Hiragana
  141. (defconstant $smCharIdeographic #x4); Hanzi, Kanji, Hanja
  142. (defconstant $smCharTwoByteGreek #x5); 2-byte Greek in Far East systems
  143. (defconstant $smCharTwoByteRussian #x6); 2-byte Cyrillic in Far East systems
  144. (defconstant $smCharBidirect #x8); Arabic/Hebrew
  145. (defconstant $smCharHangul #xc) ; Korean Hangul
  146. (defconstant $smCharJamo #xd)   ; Korean Jamo
  147.  
  148. ;  old names for above, for backward compatibility 
  149. (defconstant $smCharFISKana #x2); Katakana
  150. (defconstant $smCharFISGana #x3); Hiragana
  151. (defconstant $smCharFISIdeo #x4); Hanzi, Kanji, Hanja
  152. (defconstant $smCharFISGreek #x5); 2-byte Greek in Far East systems
  153. (defconstant $smCharFISRussian #x6); 2-byte Cyrillic in Far East systems
  154.  
  155. ;  CharType classes for punctuation (smCharPunct) 
  156. (defconstant $smPunctNormal #x0)
  157. (defconstant $smPunctNumber #x100)
  158. (defconstant $smPunctSymbol #x200)
  159. (defconstant $smPunctBlank #x300)
  160. (defconstant $smPunctRepeat #x400);  FIS: wildcard 
  161. (defconstant $smPunctGraphic #x500);  FIS: line graphics 
  162.  
  163. ;  CharType classes for FISKana, FISGana 
  164. (defconstant $smKanaSmall #x100); small kana character
  165. (defconstant $smKanaHardOK #x200); can have dakuten
  166. (defconstant $smKanaSoftOK #x300); can have dakuten or han-dakuten
  167.  
  168. ;  CharType Ideographics classes for two-byte systems 
  169. (defconstant $smIdeographicLevel1 #x0); level 1 char
  170. (defconstant $smIdeographicLevel2 #x100); level 2 char
  171. (defconstant $smIdeographicUser #x200); user char
  172.  
  173. ;  old names for above, for backward compatibility 
  174. (defconstant $smFISClassLvl1 #x0); level 1 char
  175. (defconstant $smFISClassLvl2 #x100); level 2 char
  176. (defconstant $smFISClassUser #x200); user char
  177.  
  178. ;  CharType Jamo classes for Korean systems 
  179. (defconstant $smJamoJaeum #x0)  ; simple consonant char
  180. (defconstant $smJamoBogJaeum #x100); complex consonant char
  181. (defconstant $smJamoMoeum #x200); simple vowel char
  182. (defconstant $smJamoBogMoeum #x300); complex vowel char
  183.  
  184. ;  CharType FIS glyph orientation 
  185. (defconstant $smCharHorizontal #x0);  horizontal character form, or for both 
  186. (defconstant $smCharVertical #x1000);  vertical character form 
  187.  
  188. ;  CharType directions 
  189. (defconstant $smCharLeft #x0)
  190. (defconstant $smCharRight #x2000)
  191.  
  192. ;  CharType case modifers 
  193. (defconstant $smCharLower #x0)
  194. (defconstant $smCharUpper #x4000)
  195.  
  196. ;  CharType character size modifiers (1 or multiple bytes). 
  197. (defconstant $smChar1byte #x0)
  198. (defconstant $smChar2byte #x8000)
  199.  
  200. ;  Char2Pixel directions 
  201. (defconstant $smLeftCaret 0)    ; Place caret for left block
  202. (defconstant $smRightCaret -1)  ; Place caret for right block
  203. (defconstant $smHilite 1)       ; Direction is TESysJust
  204.  
  205. ;  Transliterate target types for Roman 
  206. (defconstant $smTransAscii 0)
  207. (defconstant $smTransNative 1)
  208. (defconstant $smTransCase #xfe)
  209. (defconstant $smTransSystem #xff); convert to system script
  210.  
  211. ;  Transliterate target types for FIS 
  212. (defconstant $smTransAscii1 2)  ; 1-byte Roman
  213. (defconstant $smTransAscii2 3)  ; 2-byte Roman
  214. (defconstant $smTransKana1 4)   ; 1-byte Japanese Katakana
  215. (defconstant $smTransKana2 5)   ; 2-byte Japanese Katakana
  216. (defconstant $smTransGana2 7)   ; 2-byte Japanese Hiragana (no 1-byte Hiragana)
  217. (defconstant $smTransHangul2 8) ; 2-byte Korean Hangul
  218. (defconstant $smTransJamo2 9)   ; 2-byte Korean Jamo
  219. (defconstant $smTransBopomofo2 10); 2-byte Chinese Bopomofo
  220.  
  221. ;  Transliterate target modifiers 
  222. (defconstant $smTransLower #x4000)
  223. (defconstant $smTransUpper #x8000)
  224.  
  225. ;  Transliterate source mask - general 
  226. (defconstant $smMaskAll #xffffffff); Convert all text
  227.  
  228. ;  Transliterate source masks 
  229. (defconstant $smMaskAscii #x1)  ; 2^smTransAscii
  230. (defconstant $smMaskNative #x2) ; 2^smTransNative
  231.  
  232. ;  Transliterate source masks for FIS 
  233. (defconstant $smMaskAscii1 #x4) ; 2^smTransAscii1
  234. (defconstant $smMaskAscii2 #x8) ; 2^smTransAscii2
  235. (defconstant $smMaskKana1 #x10) ; 2^smTransKana1
  236. (defconstant $smMaskKana2 #x20) ; 2^smTransKana2
  237. (defconstant $smMaskGana2 #x80) ; 2^smTransGana2
  238. (defconstant $smMaskHangul2 #x100); 2^smTransHangul2
  239. (defconstant $smMaskJamo2 #x200); 2^smTransJamo2
  240. (defconstant $smMaskBopomofo2 #x400); 2^smTransBopomofo2
  241.  
  242. ;  Result values from GetEnvirons, SetEnvirons, GetScript and SetScript calls. 
  243. (defconstant $smNotInstalled 0) ; routine not available in script
  244. (defconstant $smBadVerb -1)     ; Bad verb passed to a routine
  245. (defconstant $smBadScript -2)   ; Bad script code passed to a routine
  246.  
  247. ;  Values for script redraw flag. 
  248. (defconstant $smRedrawChar 0)   ; Redraw character only
  249. (defconstant $smRedrawWord 1)   ; Redraw entire word (2-byte systems)
  250. (defconstant $smRedrawLine -1)  ; Redraw entire line (bidirectional systems)
  251.  
  252. ;  GetEnvirons and SetEnvirons verbs 
  253. (defconstant $smVersion 0)      ; Environment version number
  254. (defconstant $smMunged 2)       ; Globals change count
  255. (defconstant $smEnabled 4)      ; Environment enabled flag
  256. (defconstant $smBidirect 6)     ; At least on bidirect script
  257. (defconstant $smFontForce 8)    ; Force font flag
  258. (defconstant $smIntlForce 10)   ; Force intl flag
  259. (defconstant $smForced 12)      ; script forced to system script
  260. (defconstant $smDefault 14)     ; script defaulted to Roman script
  261. (defconstant $smPrint 16)       ; Printer action routine
  262. (defconstant $smSysScript 18)   ; System script
  263. (defconstant $smLastScript 20)  ; Last keyboard script
  264. (defconstant $smKeyScript 22)   ; Keyboard script
  265. (defconstant $smSysRef 24)      ; System folder refNum
  266. (defconstant $smKeyCache 26)    ; Keyboard table cache pointer
  267. (defconstant $smKeySwap 28)     ; Swapping table pointer
  268. (defconstant $smGenFlags 30)    ; General flags long
  269. (defconstant $smOverride 32)    ; Script override flags
  270. (defconstant $smCharPortion 34) ; Ch vs SpExtra proportion
  271.  
  272. ;  New for System 7.0: 
  273. (defconstant $smDoubleByte 36)  ; Flag for double-byte script installed
  274. (defconstant $smKCHRCache 38)   ; Returns pointer to KCHR cache
  275. (defconstant $smRegionCode 40)  ; Returns current region code (verXxx)
  276.  
  277. ;  GetScript and SetScript verbs.
  278. ; Note: Verbs private to script systems are negative, while
  279. ; those general across script systems are non-negative. 
  280. (defconstant $smScriptVersion 0); Script software version
  281. (defconstant $smScriptMunged 2) ; Script entry changed count
  282. (defconstant $smScriptEnabled 4); Script enabled flag
  283. (defconstant $smScriptRight 6)  ; Right to left flag
  284. (defconstant $smScriptJust 8)   ; Justification flag
  285. (defconstant $smScriptRedraw 10); Word redraw flag
  286. (defconstant $smScriptSysFond 12); Preferred system font
  287. (defconstant $smScriptAppFond 14); Preferred Application font
  288. (defconstant $smScriptBundle 16); Beginning of itlb verbs
  289. (defconstant $smScriptNumber 16); Script itl0 id
  290. (defconstant $smScriptDate 18)  ; Script itl1 id
  291. (defconstant $smScriptSort 20)  ; Script itl2 id
  292. (defconstant $smScriptFlags 22) ; flags word
  293. (defconstant $smScriptToken 24) ; Script itl4 id
  294. (defconstant $smScriptEncoding 26); id of optional itl5, if present
  295. (defconstant $smScriptLang 28)  ; Current language for script
  296. (defconstant $smScriptNumDate 30); Script KCHR id
  297. (defconstant $smScriptKeys 32)  ; Script KEYC id from dictionary
  298. (defconstant $smScriptIcon 34)  ; ID # of SICN or kcs#/kcs4/kcs8 suite
  299. (defconstant $smScriptPrint 36) ; Script printer action routine
  300. (defconstant $smScriptTrap 38)  ; Trap entry pointer
  301. (defconstant $smScriptCreator 40); Script file creator
  302. (defconstant $smScriptFile 42)  ; Script file name
  303. (defconstant $smScriptName 44)  ; Script name
  304.  
  305. ;  There is a hole here for old Kanji private verbs 46-76 
  306. ; 
  307. ;  New for System 7.0: 
  308. (defconstant $smScriptMonoFondSize 78); default monospace FOND (hi) & size (lo)
  309. (defconstant $smScriptPrefFondSize 80); preferred FOND (hi) & size (lo)
  310. (defconstant $smScriptSmallFondSize 82); default small FOND (hi) & size (lo)
  311. (defconstant $smScriptSysFondSize 84); default system FOND (hi) & size (lo)
  312. (defconstant $smScriptAppFondSize 86); default app FOND (hi) & size (lo)
  313. (defconstant $smScriptHelpFondSize 88); default Help Mgr FOND (hi) & size (lo)
  314. (defconstant $smScriptValidStyles 90); mask of valid styles for script
  315. (defconstant $smScriptAliasStyle 92); style (set) to use for aliases
  316.  
  317. ;  Negative verbs for KeyScript 
  318. (defconstant $smKeyNextScript -1);  Switch to next available script 
  319. (defconstant $smKeySysScript -2);  Switch to the system script 
  320. (defconstant $smKeySwapScript -3);  Switch to previously-used script 
  321.  
  322. ;  New for System 7.0: 
  323. (defconstant $smKeyNextKybd -4) ;  Switch to next keyboard in current script 
  324. (defconstant $smKeySwapKybd -5) ;  Switch to previously-used keyboard in current keyscript 
  325.  
  326. (defconstant $smKeyDisableKybds -6);  Disable keyboards not in system or Roman script 
  327. (defconstant $smKeyEnableKybds -7);  Re-enable keyboards for all enabled scripts 
  328. (defconstant $smKeyToggleInline -8);  Toggle inline input for current keyscript 
  329. (defconstant $smKeyToggleDirection -9);  Toggle default line direction (TESysJust) 
  330. (defconstant $smKeyNextInputMethod -10);  Switch to next input method in current keyscript 
  331. (defconstant $smKeySwapInputMethod -11);  Switch to last-used input method in current keyscript 
  332.  
  333. (defconstant $smKeyDisableKybdSwitch -12);  Disable switching from the current keyboard 
  334.  
  335. ;  Bits in the smScriptFlags word
  336. ; (bits above 7 are non-static) 
  337. (defconstant $smsfIntellCP 0)   ; script has intellegent cut & paste
  338. (defconstant $smsfSingByte 1)   ; script has only single bytes
  339. (defconstant $smsfNatCase 2)    ; native chars have upper & lower case
  340. (defconstant $smsfContext 3)    ; contextual script (e.g. AIS-based)
  341. (defconstant $smsfNoForceFont 4); Will not force characters
  342. (defconstant $smsfB0Digits 5)   ; Has alternate digits at B0-B9
  343. (defconstant $smsfAutoInit 6)   ; auto initialize the script
  344. (defconstant $smsfForms 13)     ; Uses contextual forms for letters
  345. (defconstant $smsfLigatures 14) ; Uses contextual ligatures
  346. (defconstant $smsfReverse 15)   ; Reverses native text, right-left
  347.  
  348. ;  Bits in the smGenFlags long.
  349. ; First (high-order) byte is set from itlc flags byte. 
  350. (defconstant $smfShowIcon 31)   ; Show icon even if only one script
  351. (defconstant $smfDualCaret 30)  ; Use dual caret for mixed direction text
  352. (defconstant $smfNameTagEnab 29); Reserved for internal use
  353.  
  354. ;  Roman script constants 
  355. ; 
  356. ;  The following are here for backward compatibility, but should not be used. 
  357. ;  This information should be obtained using GetScript. 
  358. (defconstant $romanSysFond #x3fff); system font id number
  359. (defconstant $romanAppFond 3)   ; application font id number
  360. (defconstant $romanFlags #x7)   ; roman settings
  361.  
  362. ;  Script Manager font equates. 
  363. (defconstant $smFondStart #x4000); start from 16K
  364. (defconstant $smFondEnd #xc000) ; past end of range at 48K
  365.  
  366. ;  Miscellaneous font equates. 
  367. (defconstant $smUprHalfCharSet #x80); first char code in top half of std char set
  368.  
  369. ;  Character Set Extensions 
  370. (defconstant $diaeresisUprY #xd9)
  371. (defconstant $fraction #xda)
  372. (defconstant $intlCurrency #xdb)
  373. (defconstant $leftSingGuillemet #xdc)
  374. (defconstant $rightSingGuillemet #xdd)
  375. (defconstant $fiLigature #xde)
  376. (defconstant $flLigature #xdf)
  377. (defconstant $dblDagger #xe0)
  378. (defconstant $centeredDot #xe1)
  379. (defconstant $baseSingQuote #xe2)
  380. (defconstant $baseDblQuote #xe3)
  381. (defconstant $perThousand #xe4)
  382. (defconstant $circumflexUprA #xe5)
  383. (defconstant $circumflexUprE #xe6)
  384. (defconstant $acuteUprA #xe7)
  385. (defconstant $diaeresisUprE #xe8)
  386. (defconstant $graveUprE #xe9)
  387. (defconstant $acuteUprI #xea)
  388. (defconstant $circumflexUprI #xeb)
  389. (defconstant $diaeresisUprI #xec)
  390. (defconstant $graveUprI #xed)
  391. (defconstant $acuteUprO #xee)
  392. (defconstant $circumflexUprO #xef)
  393. (defconstant $appleLogo #xf0)
  394. (defconstant $graveUprO #xf1)
  395. (defconstant $acuteUprU #xf2)
  396. (defconstant $circumflexUprU #xf3)
  397. (defconstant $graveUprU #xf4)
  398. (defconstant $dotlessLwrI #xf5)
  399. (defconstant $circumflex #xf6)
  400. (defconstant $tilde #xf7)
  401. (defconstant $macron #xf8)
  402. (defconstant $breveMark #xf9)
  403. (defconstant $overDot #xfa)
  404. (defconstant $ringMark #xfb)
  405. (defconstant $cedilla #xfc)
  406. (defconstant $doubleAcute #xfd)
  407. (defconstant $ogonek #xfe)
  408. (defconstant $hachek #xff)
  409.  
  410. ;  String2Date status values 
  411. (defconstant $fatalDateTime #x8000)
  412. (defconstant $longDateFound 1)
  413. (defconstant $leftOverChars 2)
  414. (defconstant $sepNotIntlSep 4)
  415. (defconstant $fieldOrderNotIntl 8)
  416. (defconstant $extraneousStrings 16)
  417. (defconstant $tooManySeps 32)
  418. (defconstant $sepNotConsistent 64)
  419. (defconstant $tokenErr #x8100)
  420. (defconstant $cantReadUtilities #x8200)
  421. (defconstant $dateTimeNotFound #x8400)
  422. (defconstant $dateTimeInvalid #x8800)
  423.  
  424. ;  TokenType values 
  425. (defconstant $tokenIntl 4)      ; the itl resource number of the tokenizer
  426. (defconstant $tokenEmpty -1)
  427. (defconstant $tokenUnknown 0)
  428. (defconstant $tokenWhite 1)
  429. (defconstant $tokenLeftLit 2)
  430. (defconstant $tokenRightLit 3)
  431. (defconstant $tokenAlpha 4)
  432. (defconstant $tokenNumeric 5)
  433. (defconstant $tokenNewLine 6)
  434. (defconstant $tokenLeftComment 7)
  435. (defconstant $tokenRightComment 8)
  436. (defconstant $tokenLiteral 9)
  437. (defconstant $tokenEscape 10)
  438. (defconstant $tokenAltNum 11)
  439. (defconstant $tokenRealNum 12)
  440. (defconstant $tokenAltReal 13)
  441. (defconstant $tokenReserve1 14)
  442. (defconstant $tokenReserve2 15)
  443. (defconstant $tokenLeftParen 16)
  444. (defconstant $tokenRightParen 17)
  445. (defconstant $tokenLeftBracket 18)
  446. (defconstant $tokenRightBracket 19)
  447. (defconstant $tokenLeftCurly 20)
  448. (defconstant $tokenRightCurly 21)
  449. (defconstant $tokenLeftEnclose 22)
  450. (defconstant $tokenRightEnclose 23)
  451. (defconstant $tokenPlus 24)
  452. (defconstant $tokenMinus 25)
  453. (defconstant $tokenAsterisk 26)
  454. (defconstant $tokenDivide 27)
  455. (defconstant $tokenPlusMinus 28)
  456. (defconstant $tokenSlash 29)
  457. (defconstant $tokenBackSlash 30)
  458. (defconstant $tokenLess 31)
  459. (defconstant $tokenGreat 32)
  460. (defconstant $tokenEqual 33)
  461. (defconstant $tokenLessEqual2 34)
  462. (defconstant $tokenLessEqual1 35)
  463. (defconstant $tokenGreatEqual2 36)
  464. (defconstant $tokenGreatEqual1 37)
  465. (defconstant $token2Equal 38)
  466. (defconstant $tokenColonEqual 39)
  467. (defconstant $tokenNotEqual 40)
  468. (defconstant $tokenLessGreat 41)
  469. (defconstant $tokenExclamEqual 42)
  470. (defconstant $tokenExclam 43)
  471. (defconstant $tokenTilde 44)
  472. (defconstant $tokenComma 45)
  473. (defconstant $tokenPeriod 46)
  474. (defconstant $tokenLeft2Quote 47)
  475. (defconstant $tokenRight2Quote 48)
  476. (defconstant $tokenLeft1Quote 49)
  477. (defconstant $tokenRight1Quote 50)
  478. (defconstant $token2Quote 51)
  479. (defconstant $token1Quote 52)
  480. (defconstant $tokenSemicolon 53)
  481. (defconstant $tokenPercent 54)
  482. (defconstant $tokenCaret 55)
  483. (defconstant $tokenUnderline 56)
  484. (defconstant $tokenAmpersand 57)
  485. (defconstant $tokenAtSign 58)
  486. (defconstant $tokenBar 59)
  487. (defconstant $tokenQuestion 60)
  488. (defconstant $tokenPi 61)
  489. (defconstant $tokenRoot 62)
  490. (defconstant $tokenSigma 63)
  491. (defconstant $tokenIntegral 64)
  492. (defconstant $tokenMicro 65)
  493. (defconstant $tokenCapPi 66)
  494. (defconstant $tokenInfinity 67)
  495. (defconstant $tokenColon 68)
  496. (defconstant $tokenHash 69)
  497. (defconstant $tokenDollar 70)
  498. (defconstant $tokenNoBreakSpace 71)
  499. (defconstant $tokenFraction 72)
  500. (defconstant $tokenIntlCurrency 73)
  501. (defconstant $tokenLeftSingGuillemet 74)
  502. (defconstant $tokenRightSingGuillemet 75)
  503. (defconstant $tokenPerThousand 76)
  504. (defconstant $tokenEllipsis 77)
  505. (defconstant $tokenCenterDot 78)
  506. (defconstant $tokenNil 127)
  507. (defconstant $delimPad -2)
  508.  
  509. ;  obsolete, misspelled token names kept for backward compatibility 
  510. (defconstant $tokenTilda 44)
  511. (defconstant $tokenCarat 55)
  512.  
  513. ;  the NumberParts indices 
  514. (defconstant $tokLeftQuote 1)
  515. (defconstant $tokRightQuote 2)
  516. (defconstant $tokLeadPlacer 3)
  517. (defconstant $tokLeader 4)
  518. (defconstant $tokNonLeader 5)
  519. (defconstant $tokZeroLead 6)
  520. (defconstant $tokPercent 7)
  521. (defconstant $tokPlusSign 8)
  522. (defconstant $tokMinusSign 9)
  523. (defconstant $tokThousands 10)
  524. (defconstant $tokSeparator 12)  ; 11 is a reserved field
  525. (defconstant $tokEscape 13)
  526. (defconstant $tokDecPoint 14)
  527. (defconstant $tokEPlus 15)
  528. (defconstant $tokEMinus 16)
  529. (defconstant $tokMaxSymbols 31)
  530. (defconstant $curNumberPartsVersion 1); current version of NumberParts record
  531. (defconstant $fVNumber 0)       ; first version of NumFormatString
  532.  
  533. ;  Date equates 
  534. (defconstant $smallDateBit 31)  ; Restrict valid date/time to range of Time global
  535. (defconstant $togChar12HourBit 30); If toggling hour by char, accept hours 1..12 only
  536. (defconstant $togCharZCycleBit 29); Modifier for togChar12HourBit: accept hours 0..11 only
  537. (defconstant $togDelta12HourBit 28); If toggling hour up/down, restrict to 12-hour range (am/pm)
  538. (defconstant $genCdevRangeBit 27); Restrict date/time to range used by genl CDEV
  539. (defconstant $validDateFields -1)
  540. (defconstant $maxDateField 10)
  541. (defconstant $eraMask #x1)
  542. (defconstant $yearMask #x2)
  543. (defconstant $monthMask #x4)
  544. (defconstant $dayMask #x8)
  545. (defconstant $hourMask #x10)
  546. (defconstant $minuteMask #x20)
  547. (defconstant $secondMask #x40)
  548. (defconstant $dayOfWeekMask #x80)
  549. (defconstant $dayOfYearMask #x100)
  550. (defconstant $weekOfYearMask #x200)
  551. (defconstant $pmMask #x400)
  552. (defconstant $dateStdMask #x7f)
  553.  
  554. ;  Toggle results 
  555. (defconstant $toggleUndefined 0)
  556. (defconstant $toggleOK 1)
  557. (defconstant $toggleBadField 2)
  558. (defconstant $toggleBadDelta 3)
  559. (defconstant $toggleBadChar 4)
  560. (defconstant $toggleUnknown 5)
  561. (defconstant $toggleBadNum 6)
  562. (defconstant $toggleOutOfRange 7); synonym for toggleErr3
  563. (defconstant $toggleErr3 7)
  564. (defconstant $toggleErr4 8)
  565. (defconstant $toggleErr5 9)
  566.  
  567. ;  Constants for truncWhere argument in TruncString and TruncText 
  568. (defconstant $smTruncEnd 0)     ;  Truncate at end 
  569. (defconstant $smTruncMiddle #x4000);  Truncate in middle 
  570.  
  571. ;  Constants for TruncString and TruncText results 
  572. (defconstant $smNotTruncated 0) ;  No truncation was necessary 
  573. (defconstant $smTruncated 1)    ;  Truncation performed 
  574. (defconstant $smTruncErr -1)    ;  General error 
  575.  
  576. ; Constants for styleRunPosition argument in NPortionText, NDrawJust,
  577. ;  NMeasureJust, NChar2Pixel, and NPixel2Char.
  578. (defconstant $smOnlyStyleRun 0) ;  This is the only style run on the line
  579. (defconstant $smLeftStyleRun 1) ;  This is leftmost of multiple style runs on the line
  580. (defconstant $smRightStyleRun 2);  This is rightmost of multiple style runs on the line
  581. (defconstant $smMiddleStyleRun 3);  There are multiple style runs on the line and this
  582. ;  is neither the leftmost nor the rightmost. 
  583.  
  584. (def-mactype :tokenresults (find-mactype :unsigned-byte))
  585. (defconstant $tokenOK 0)
  586. (defconstant $tokenOverflow 1)
  587. (defconstant $stringOverflow 2)
  588. (defconstant $badDelim 3)
  589. (defconstant $badEnding 4)
  590. (defconstant $crash 5)
  591.  
  592. (def-mactype :longdatefield (find-mactype :unsigned-word))
  593. (defconstant $eraField 0)
  594. (defconstant $yearField 1)
  595. (defconstant $monthField 2)
  596. (defconstant $dayField 3)
  597. (defconstant $hourField 4)
  598. (defconstant $minuteField 5)
  599. (defconstant $secondField 6)
  600. (defconstant $dayOfWeekField 7)
  601. (defconstant $dayOfYearField 8)
  602. (defconstant $weekOfYearField 9)
  603. (defconstant $pmField 10)
  604. (defconstant $res1Field 11)
  605. (defconstant $res2Field 12)
  606. (defconstant $res3Field 13)
  607.  
  608. (def-mactype :styledlinebreakcode (find-mactype :unsigned-byte))
  609. (defconstant $smBreakWord 0)
  610. (defconstant $smBreakChar 1)
  611. (defconstant $smBreakOverflow 2)
  612.  
  613. (def-mactype :formatclass (find-mactype :unsigned-byte))
  614. (defconstant $fPositive 0)
  615. (defconstant $fNegative 1)
  616. (defconstant $fZero 2)
  617.  
  618. (def-mactype :formatresulttype (find-mactype :unsigned-word))
  619. (defconstant $fFormatOK 0)
  620. (defconstant $fBestGuess 1)
  621. (defconstant $fOutOfSynch 2)
  622. (defconstant $fSpuriousChars 3)
  623. (defconstant $fMissingDelimiter 4)
  624. (defconstant $fExtraDecimal 5)
  625. (defconstant $fMissingLiteral 6)
  626. (defconstant $fExtraExp 7)
  627. (defconstant $fFormatOverflow 8)
  628. (defconstant $fFormStrIsNAN 9)
  629. (defconstant $fBadPartsTable 10)
  630. (defconstant $fExtraPercent 11)
  631. (defconstant $fExtraSeparator 12)
  632. (defconstant $fEmptyFormatString 13)
  633.  
  634. (defrecord CharByteTable (array (array :signed-byte 256)))
  635. (def-mactype :toggleresults (find-mactype :signed-integer))
  636.  
  637. (def-mactype :breaktableptr (find-mactype :pointer))
  638. (defrecord BreakTable 
  639.    (charTypes (:array :signed-byte 256))
  640.    (tripleLength :signed-integer)
  641.    (triples (:array :signed-integer 1))
  642.    )
  643.  
  644. ;  New NBreakTable for System 7.0: 
  645. (def-mactype :nbreaktableptr (find-mactype :pointer))
  646. (defrecord NBreakTable 
  647.    (flags1 :signed-byte)
  648.    (flags2 :signed-byte)
  649.    (version :signed-integer)
  650.    (classTableOff :signed-integer)
  651.    (auxCTableOff :signed-integer)
  652.    (backwdTableOff :signed-integer)
  653.    (forwdTableOff :signed-integer)
  654.    (doBackup :signed-integer)
  655.    (reserved :signed-integer)
  656.    (charTypes (:array :signed-byte 256))
  657.    (tables (:array :signed-integer 1))
  658.    )
  659.  
  660. (defrecord OffPair 
  661.    (offFirst :signed-integer)
  662.    (offSecond :signed-integer)
  663.    )
  664.  
  665. (defrecord OffsetTable (array (array :offpair 3)))
  666.  
  667. (defrecord ItlcRecord 
  668.    (itlcSystem :signed-integer) ; default system script
  669.    (itlcReserved :signed-integer); reserved
  670.    (itlcFontForce :signed-byte) ; default font force flag
  671.    (itlcIntlForce :signed-byte) ; default intl force flag
  672.    (itlcOldKybd :signed-byte)   ; old keyboard
  673.    (itlcFlags :signed-byte)     ; general flags
  674.    (itlcIconOffset :signed-integer); script icon offset
  675.    (itlcIconSide :signed-byte)  ; icon side
  676.    (itlcIconRsvd :signed-byte)  ; rsvd for other icon info
  677.    (itlcRegionCode :signed-integer); preferred verXxx code
  678.    (itlcReserved3 (:array :signed-byte 34)); for future use
  679.    )
  680.  
  681. (defrecord ItlbRecord 
  682.    (itlbNumber :signed-integer) ; itl0 id number
  683.    (itlbDate :signed-integer)   ; itl1 id number
  684.    (itlbSort :signed-integer)   ; itl2 id number
  685.    (itlbFlags :signed-integer)  ; Script flags
  686.    (itlbToken :signed-integer)  ; itl4 id number
  687.    (itlbEncoding :signed-integer); itl5 ID # (optional; char encoding)
  688.    (itlbLang :signed-integer)   ; cur language for script 
  689.    (itlbNumRep :signed-byte)    ; number representation code
  690.    (itlbDateRep :signed-byte)   ; date representation code 
  691.    (itlbKeys :signed-integer)   ; KCHR id number
  692.    (itlbIcon :signed-integer)   ; ID # of SICN or kcs#/kcs4/kcs8 suite.
  693.    )
  694.  
  695. ;  New ItlbExtRecord structure for System 7.0 
  696. (DEFRECORD ITLBEXTRECORD (BASE :ITLBRECORD)
  697.   (ITLBLOCALSIZE :SIGNED-LONG)
  698.   (ITLBMONOFOND :SIGNED-INTEGER)
  699.   (ITLBMONOSIZE :SIGNED-INTEGER)
  700.   (ITLBPREFFOND :SIGNED-INTEGER)
  701.   (ITLBPREFSIZE :SIGNED-INTEGER)
  702.   (ITLBSMALLFOND :SIGNED-INTEGER)
  703.   (ITLBSMALLSIZE :SIGNED-INTEGER)
  704.   (ITLBSYSFOND :SIGNED-INTEGER)
  705.   (ITLBSYSSIZE :SIGNED-INTEGER)
  706.   (ITLBAPPFOND :SIGNED-INTEGER)
  707.   (ITLBAPPSIZE :SIGNED-INTEGER)
  708.   (ITLBHELPFOND :SIGNED-INTEGER)
  709.   (ITLBHELPSIZE :SIGNED-INTEGER)
  710.   (FILLER1 :SIGNED-BYTE)
  711.   (ITLBVALIDSTYLES :UNSIGNED-BYTE)
  712.   (FILLER2 :SIGNED-BYTE)
  713.   (ITLBALIASSTYLE :UNSIGNED-BYTE))
  714.  
  715. (defrecord MachineLocation 
  716.    (latitude :signed-long)
  717.    (longitude :signed-long)
  718.    (:variant 
  719.  
  720.       ((dlsDelta :signed-byte)) ; signed byte; daylight savings delta
  721.  
  722.       ((gmtDelta :signed-long)) ; must mask - see documentation
  723.       ))
  724.  
  725. (def-mactype :string2datestatus (find-mactype :signed-integer))
  726. (def-mactype :tokentype (find-mactype :signed-integer))
  727. (defrecord DelimType (array (array :signed-integer 2)))
  728. (defrecord CommentType (array (array :signed-integer 4)))
  729.  
  730. (def-mactype :tokenrecptr (find-mactype :pointer))
  731. (defrecord TokenRec 
  732.    (theToken :signed-integer)
  733.    (position :pointer)          ; pointer into original Source
  734.    (length :signed-long)        ; length of text in original source
  735.    (stringPosition (:pointer (:string 255))); Pascal/C string copy of identifier
  736.    )
  737.  
  738. (def-mactype :tokenblockptr (find-mactype :pointer))
  739. (defrecord TokenBlock 
  740.    (source :pointer)            ; pointer to stream of characters
  741.    (sourceLength :signed-long)  ; length of source stream
  742.    (tokenList :pointer)         ; pointer to array of tokens
  743.    (tokenLength :signed-long)   ; maximum length of TokenList
  744.    (tokenCount :signed-long)    ; number tokens generated by tokenizer
  745.    (stringList :pointer)        ; pointer to stream of identifiers
  746.    (stringLength :signed-long)  ; length of string list
  747.    (stringCount :signed-long)   ; number of bytes currently used
  748.    (doString :boolean)          ; make strings & put into StringLIst
  749.    (doAppend :boolean)          ; append to TokenList rather than replace
  750.    (doAlphanumeric :boolean)    ; identifiers may include numeric
  751.    (doNest :boolean)            ; do comments nest?
  752.    (leftDelims (:array :signed-integer 2))
  753.    (rightDelims (:array :signed-integer 2))
  754.    (leftComment (:array :signed-integer 4))
  755.    (rightComment (:array :signed-integer 4))
  756.    (escapeCode :signed-integer) ; escape symbol code
  757.    (decimalCode :signed-integer)
  758.    (itlResource :handle)        ; ptr to itl4 resource of current script
  759.    (reserved (:array :signed-long 8)); must be zero!
  760.    )
  761.  
  762. (def-mactype :untokentableptr (find-mactype :pointer))
  763. (def-mactype :untokentablehandle (find-mactype :handle))
  764. (defrecord (UntokenTable :handle) 
  765.    (len :signed-integer)
  766.    (lastToken :signed-integer)
  767.    (index (:array :signed-integer 256)); index table; last = lastToken
  768.    )
  769.  
  770. (def-mactype :datecacheptr (find-mactype :pointer))
  771. (defrecord DateCacheRecord 
  772.    (hidden (:array :signed-integer 256)); only for temporary use
  773.    )
  774.  
  775. (defrecord longdatetime (data :comp))
  776.  
  777. (defrecord LongDateCvt 
  778.    (:variant 
  779.  
  780.       ((c :longdatetime))
  781.  
  782.       ((lHigh :signed-long)
  783.       (lLow :signed-long))
  784.       ))
  785.  
  786. (defrecord LongDateRec 
  787.    (:variant 
  788.  
  789.       ((era :signed-integer)
  790.       (year :signed-integer)
  791.       (month :signed-integer)
  792.       (day :signed-integer)
  793.       (hour :signed-integer)
  794.       (minute :signed-integer)
  795.       (second :signed-integer)
  796.       (dayOfWeek :signed-integer)
  797.       (dayOfYear :signed-integer)
  798.       (weekOfYear :signed-integer)
  799.       (pm :signed-integer)
  800.       (res1 :signed-integer)
  801.       (res2 :signed-integer)
  802.       (res3 :signed-integer))
  803.  
  804.       ((list (:array :signed-integer 14))); Index by LongDateField!
  805.  
  806.       ((eraAlt :signed-integer)
  807.       (oldDate :datetimerec))
  808.       ))
  809.  
  810. (def-mactype :datedelta (find-mactype :signed-byte))
  811.  
  812. (defrecord TogglePB 
  813.    (togFlags :signed-long)      ; caller normally sets low word to dateStdMask=$7F
  814.    (amChars :ostype)            ; from intl0
  815.    (pmChars :ostype)            ; from intl0
  816.    (reserved (:array :signed-long 4))
  817.    )
  818.  
  819. (defrecord FormatOrder (array (array :signed-integer 1)))
  820. (def-mactype :formatorderptr (find-mactype :pointer))
  821. (def-mactype :formatstatus (find-mactype :signed-integer))
  822.  
  823. (defrecord WideChar 
  824.    (:variant 
  825.  
  826.       ((a (:array :character 2))); 0 is the high order character
  827.  
  828.       ((b :signed-integer))
  829.       ))
  830.  
  831. (defrecord WideCharArr 
  832.    (size :signed-integer)
  833.    (data (:array :widechar 10))
  834.    )
  835.  
  836. (defrecord NumFormatString 
  837.    (fLength :unsigned-byte)
  838.    (fVersion :unsigned-byte)
  839.    (data (:array :signed-byte 254)); private data
  840.    )
  841.  
  842. (def-mactype :itl4ptr (find-mactype :pointer))
  843. (def-mactype :itl4handle (find-mactype :handle))
  844. (defrecord (Itl4Rec :handle) 
  845.    (flags :signed-integer)
  846.    (resourceType :signed-long)
  847.    (resourceNum :signed-integer)
  848.    (version :signed-integer)
  849.    (resHeader1 :signed-long)
  850.    (resHeader2 :signed-long)
  851.    (numTables :signed-integer)  ; one-based
  852.    (mapOffset :signed-long)     ; offsets are from record start
  853.    (strOffset :signed-long)
  854.    (fetchOffset :signed-long)
  855.    (unTokenOffset :signed-long)
  856.    (defPartsOffset :signed-long)
  857.    (resOffset6 :signed-long)
  858.    (resOffset7 :signed-long)
  859.    (resOffset8 :signed-long)
  860.    )
  861.  
  862. ;  New NItl4Rec for System 7.0: 
  863. (def-mactype :nitl4ptr (find-mactype :pointer))
  864. (def-mactype :nitl4handle (find-mactype :handle))
  865. (defrecord (NItl4Rec :handle) 
  866.    (flags :signed-integer)
  867.    (resourceType :signed-long)
  868.    (resourceNum :signed-integer)
  869.    (version :signed-integer)
  870.    (format :signed-integer)
  871.    (resHeader :signed-integer)
  872.    (resHeader2 :signed-long)
  873.    (numTables :signed-integer)  ; one-based
  874.    (mapOffset :signed-long)     ; offsets are from record start
  875.    (strOffset :signed-long)
  876.    (fetchOffset :signed-long)
  877.    (unTokenOffset :signed-long)
  878.    (defPartsOffset :signed-long)
  879.    (whtSpListOffset :signed-long)
  880.    (resOffset7 :signed-long)
  881.    (resOffset8 :signed-long)
  882.    (resLength1 :signed-integer)
  883.    (resLength2 :signed-integer)
  884.    (resLength3 :signed-integer)
  885.    (unTokenLength :signed-integer)
  886.    (defPartsLength :signed-integer)
  887.    (whtSpListLength :signed-integer)
  888.    (resLength7 :signed-integer)
  889.    (resLength8 :signed-integer)
  890.    )
  891.  
  892. (def-mactype :numberpartsptr (find-mactype :pointer))
  893. (defrecord NumberParts 
  894.    (version :signed-integer)
  895.    (data (:array :widechar 31)) ; index by [tokLeftQuote..tokMaxSymbols]
  896.    (pePlus :widechararr)
  897.    (peMinus :widechararr)
  898.    (peMinusPlus :widechararr)
  899.    (altNumTable :widechararr)
  900.    (reserved (:array :character 20))
  901.    )
  902.  
  903. (defrecord FVector 
  904.    (start :signed-integer)
  905.    (length :signed-integer)
  906.    )
  907.  
  908. (defrecord TripleInt (array (array :fvector 3)));  index by [fPositive..fZero] 
  909.  
  910. (DEFRECORD SCRIPTRUNSTATUS (SCRIPT :SIGNED-BYTE) (VAR :SIGNED-BYTE))
  911.  
  912. ;  type for truncWhere parameter in new TruncString, TruncText 
  913. (def-mactype :trunccode (find-mactype :signed-integer))
  914.  
  915. ;  type for styleRunPosition parameter in NPixel2Char etc. 
  916. (def-mactype :juststylecode (find-mactype :signed-integer))
  917.  
  918.  
  919. (deftrap _fontscript nil
  920.    (:stack :signed-integer)
  921.    (:stack-trap #xA8B5 ((+ (ash 33280 16) 0) :signed-longint)))
  922.  
  923. (deftrap _intlscript nil
  924.    (:stack :signed-integer)
  925.    (:stack-trap #xA8B5 ((+ (ash 33280 16) 2) :signed-longint)))
  926.  
  927. (deftrap _keyscript ((code :signed-integer))
  928.    nil
  929.    (:stack-trap #xA8B5 code ((+ (ash 32770 16) 4) :signed-longint)))
  930.  
  931. (deftrap _font2script ((fontnumber :signed-integer))
  932.    (:stack :signed-integer)
  933.    (:stack-trap #xA8B5 fontnumber ((+ (ash 33282 16) 6) :signed-longint)))
  934.  
  935. (deftrap _getenvirons ((verb :signed-integer))
  936.    (:stack :signed-long)
  937.    (:stack-trap #xA8B5 verb ((+ (ash 33794 16) 8) :signed-longint)))
  938.  
  939. (deftrap _setenvirons ((verb :signed-integer) (param :signed-long))
  940.    (:stack :signed-integer)
  941.    (:stack-trap #xA8B5 verb param ((+ (ash 33286 16) 10) :signed-longint)))
  942.  
  943. (deftrap _getscript ((script :signed-integer) (verb :signed-integer))
  944.    (:stack :signed-long)
  945.    (:stack-trap #xA8B5 script verb ((+ (ash 33796 16) 12) :signed-longint)))
  946.  
  947. (deftrap _setscript ((script :signed-integer) (verb :signed-integer) (param :signed-long))
  948.    (:stack :signed-integer)
  949.    (:stack-trap #xA8B5 script verb param ((+ (ash 33288 16) 14) :signed-longint)))
  950.  
  951. (deftrap _charbyte ((textbuf :pointer) (textoffset :signed-integer))
  952.    (:stack :signed-integer)
  953.    (:stack-trap #xA8B5 textbuf textoffset ((+ (ash 33286 16) 16) :signed-longint)))
  954.  
  955. (deftrap _chartype ((textbuf :pointer) (textoffset :signed-integer))
  956.    (:stack :signed-integer)
  957.    (:stack-trap #xA8B5 textbuf textoffset ((+ (ash 33286 16) 18) :signed-longint)))
  958.  
  959. (deftrap _pixel2char ((textbuf :pointer) (textlen :signed-integer) (slop :signed-integer) (pixelwidth :signed-integer) (leadingedge (:pointer :boolean)))
  960.    (:stack :signed-integer)
  961.    (:stack-trap #xA8B5 textbuf textlen slop pixelwidth leadingedge ((+ (ash 33294 16) 20) :signed-longint)))
  962.  
  963. (deftrap _char2pixel ((textbuf :pointer) (textlen :signed-integer) (slop :signed-integer) (offset :signed-integer) (direction :signed-integer))
  964.    (:stack :signed-integer)
  965.    (:stack-trap #xA8B5 textbuf textlen slop offset direction ((+ (ash 33292 16) 22) :signed-longint)))
  966.  
  967. (deftrap _transliterate ((srchandle :handle) (dsthandle :handle) (target :signed-integer) (srcmask :signed-long))
  968.    (:stack :signed-integer)
  969.    (:stack-trap #xA8B5 srchandle dsthandle target srcmask ((+ (ash 33294 16) 24) :signed-longint)))
  970.  
  971. (deftrap _findword ((textptr :pointer) (textlength :signed-integer) (offset :signed-integer) (leadingedge :boolean) (breaks (:pointer :breaktable)) (offsets (:pointer :offsettable)))
  972.    nil
  973.    (:stack-trap #xA8B5 textptr textlength offset leadingedge breaks offsets ((+ (ash 32786 16) 26) :signed-longint)))
  974.  
  975. (deftrap _hilitetext ((textptr :pointer) (textlength :signed-integer) (firstoffset :signed-integer) (secondoffset :signed-integer) (offsets (:pointer :offsettable)))
  976.    nil
  977.    (:stack-trap #xA8B5 textptr textlength firstoffset secondoffset offsets ((+ (ash 32782 16) 28) :signed-longint)))
  978.  
  979. (deftrap _drawjust ((textptr :pointer) (textlength :signed-integer) (slop :signed-integer))
  980.    nil
  981.    (:stack-trap #xA8B5 textptr textlength slop ((+ (ash 32776 16) 30) :signed-longint)))
  982.  
  983. (deftrap _measurejust ((textptr :pointer) (textlength :signed-integer) (slop :signed-integer) (charlocs :pointer))
  984.    nil
  985.    (:stack-trap #xA8B5 textptr textlength slop charlocs ((+ (ash 32780 16) 32) :signed-longint)))
  986.  
  987. (deftrap _parsetable ((table (:pointer :charbytetable)))
  988.    (:stack :boolean)
  989.    (:stack-trap #xA8B5 table ((+ (ash 33284 16) 34) :signed-longint)))
  990.  
  991. (deftrap _getdeffontsize nil
  992.    (:no-trap :signed-integer)
  993.    (:no-trap (let ((fsize (%get-word (%int-to-ptr 2894))))
  994.                (if (eql fsize 0) 12 fsize))))
  995.  
  996. (deftrap _getsysfont nil
  997.    (:no-trap :signed-integer)
  998.    (:no-trap (%get-signed-word (%int-to-ptr 2982))))
  999.  
  1000. (deftrap _getappfont nil
  1001.    (:no-trap :signed-integer)
  1002.    (:no-trap (%get-signed-word (%int-to-ptr 2436))))
  1003.  
  1004. (deftrap _getmbarheight nil
  1005.    (:no-trap :signed-integer)
  1006.    (:no-trap (%get-signed-word (%int-to-ptr 2986))))
  1007.  
  1008. (deftrap _getsysjust nil
  1009.    (:no-trap :signed-integer)
  1010.    (:no-trap (%get-signed-word (%int-to-ptr 2988))))
  1011.  
  1012. (deftrap _setsysjust ((newjust :signed-integer))
  1013.    nil
  1014.    (:no-trap (%put-word (%int-to-ptr 2988) newjust)))
  1015.  
  1016. (deftrap _readlocation ((loc (:pointer :machinelocation)))
  1017.    nil
  1018.    (:register-trap #xA051 :a0 loc :d0 #x000c00E4))
  1019.  
  1020. (deftrap _writelocation ((loc :machinelocation))
  1021.    nil
  1022.    (:register-trap #xA052 :a0 loc :d0 #x000c00E4))
  1023.  
  1024. (deftrap _uprtext ((textptr :pointer) (len :signed-integer))
  1025.    nil
  1026.    (:register-trap #xA054 :a0 textptr :d0 len))
  1027.  
  1028. (deftrap _lwrtext ((textptr :pointer) (len :signed-integer))
  1029.    nil
  1030.    (:register-trap #xA056 :a0 textptr :d0 len))
  1031.  
  1032. ;   New for 7.0  
  1033.  
  1034. (deftrap _lowertext ((textptr :pointer) (len :signed-integer))
  1035.    nil
  1036.    (:register-trap #xA056 :a0 textptr :d0 len))
  1037.  
  1038. (deftrap _striptext ((textptr :pointer) (len :signed-integer))
  1039.    nil
  1040.    (:register-trap #xA256 :a0 textptr :d0 len))
  1041.  
  1042. (deftrap _uppertext ((textptr :pointer) (len :signed-integer))
  1043.    nil
  1044.    (:register-trap #xA456 :a0 textptr :d0 len))
  1045.  
  1046. (deftrap _stripuppertext ((textptr :pointer) (len :signed-integer))
  1047.    nil
  1048.    (:register-trap #xA656 :a0 textptr :d0 len))
  1049.  
  1050.  
  1051. (deftrap _styledlinebreak ((textptr :pointer) (textlen :signed-long) (textstart :signed-long) (textend :signed-long) (flags :signed-long) (textwidth (:pointer :signed-long)) (textoffset (:pointer :signed-long)))
  1052.    (:stack :unsigned-byte)
  1053.    (:stack-trap #xA8B5 textptr textlen textstart textend flags textwidth textoffset ((+ (ash 33308 16) 65534) :signed-longint)))
  1054.  
  1055. (deftrap _getformatorder ((ordering (:pointer :formatorder)) (firstformat :signed-integer) (lastformat :signed-integer) (lineright :boolean) (rldirproc :pointer) (dirparam :pointer))
  1056.    nil
  1057.    (:stack-trap #xA8B5 ordering firstformat lastformat lineright rldirproc dirparam ((+ (ash 32786 16) 65532) :signed-longint)))
  1058.  
  1059. (deftrap _intltokenize ((tokenparam (:pointer :tokenblock)))
  1060.    (:stack :unsigned-byte)
  1061.    (:stack-trap #xA8B5 tokenparam ((+ (ash 33284 16) 65530) :signed-longint)))
  1062.  
  1063. (deftrap _initdatecache ((thecache (:pointer :datecacherecord)))
  1064.    (:stack :signed-integer)
  1065.    (:stack-trap #xA8B5 thecache ((+ (ash 33284 16) 65528) :signed-longint)))
  1066.  
  1067. (deftrap _string2date ((textptr :pointer) (textlen :signed-long) (thecache (:pointer :datecacherecord)) (lengthused (:pointer :signed-long)) (datetime (:pointer :longdaterec)))
  1068.    (:stack :signed-integer)
  1069.    (:stack-trap #xA8B5 textptr textlen thecache lengthused datetime ((+ (ash 33300 16) 65526) :signed-longint)))
  1070.  
  1071. (deftrap _string2time ((textptr :pointer) (textlen :signed-long) (thecache (:pointer :datecacherecord)) (lengthused (:pointer :signed-long)) (datetime (:pointer :longdaterec)))
  1072.    (:stack :signed-integer)
  1073.    (:stack-trap #xA8B5 textptr textlen thecache lengthused datetime ((+ (ash 33300 16) 65524) :signed-longint)))
  1074.  
  1075. (deftrap _longdate2secs ((ldate :longdaterec) (lsecs (:pointer :longdatetime)))
  1076.    nil
  1077.    (:stack-trap #xA8B5 ldate lsecs ((+ (ash 32776 16) 65522) :signed-longint)))
  1078.  
  1079. (deftrap _longsecs2date ((lsecs (:pointer :longdatetime)) (ldate (:pointer :longdaterec)))
  1080.    nil
  1081.    (:stack-trap #xA8B5 lsecs ldate ((+ (ash 32776 16) 65520) :signed-longint)))
  1082.  
  1083. (deftrap _toggledate ((lsecs (:pointer :longdatetime)) (field :unsigned-word) (delta :signed-byte) (ch :signed-integer) (params :togglepb))
  1084.    (:stack :signed-integer)
  1085.    (:stack-trap #xA8B5 lsecs field delta ch params ((+ (ash 33294 16) 65518) :signed-longint)))
  1086.  
  1087. (deftrap _str2format ((instring (:string 255)) (partstable :numberparts) (outstring (:pointer :numformatstring)))
  1088.    (:stack :signed-integer)
  1089.    (:stack-trap #xA8B5 instring partstable outstring ((+ (ash 33292 16) 65516) :signed-longint)))
  1090.  
  1091. (deftrap _format2str ((mycanonical :numformatstring) (partstable :numberparts) (outstring (:pointer (:string 255))) (positions (:pointer :tripleint)))
  1092.    (:stack :signed-integer)
  1093.    (:stack-trap #xA8B5 mycanonical partstable outstring positions ((+ (ash 33296 16) 65514) :signed-longint)))
  1094.  
  1095. (deftrap _formatx2str ((x :pointer) (mycanonical :numformatstring) (partstable :numberparts) (outstring (:pointer (:string 255))))
  1096.    (:stack :signed-integer)
  1097.    (:stack-trap #xA8B5 x mycanonical partstable outstring ((+ (ash 33296 16) 65512) :signed-longint)))
  1098.  
  1099. (deftrap _formatstr2x ((source (:string 255)) (mycanonical :numformatstring) (partstable :numberparts) (x :pointer))
  1100.    (:stack :signed-integer)
  1101.    (:stack-trap #xA8B5 source mycanonical partstable x ((+ (ash 33296 16) 65510) :signed-longint)))
  1102.  
  1103. (deftrap _portiontext ((textptr :pointer) (textlen :signed-long))
  1104.    (:stack :signed-long)
  1105.    (:stack-trap #xA8B5 textptr textlen ((+ (ash 33800 16) 36) :signed-longint)))
  1106.  
  1107. (deftrap _findscriptrun ((textptr :pointer) (textlen :signed-long) (lenused (:pointer :signed-long)))
  1108.    (:stack :scriptrunstatus)
  1109.    (:stack-trap #xA8B5 textptr textlen lenused ((+ (ash 33292 16) 38) :signed-longint)))
  1110.  
  1111. (deftrap _visiblelength ((textptr :pointer) (textlen :signed-long))
  1112.    (:stack :signed-long)
  1113.    (:stack-trap #xA8B5 textptr textlen ((+ (ash 33800 16) 40) :signed-longint)))
  1114.  
  1115. (deftrap _validdate ((vdate (:pointer :longdaterec)) (flags :signed-long) (newsecs (:pointer :longdatetime)))
  1116.    (:stack :signed-integer)
  1117.    (:stack-trap #xA8B5 vdate flags newsecs ((+ (ash 33284 16) 65508) :signed-longint)))
  1118.  
  1119. ;   New for 7.0  
  1120.  
  1121. (deftrap _nfindword ((textptr :pointer) (textlength :signed-integer) (offset :signed-integer) (leadingedge :boolean) (nbreaks (:pointer :nbreaktable)) (offsets (:pointer :offsettable)))
  1122.    nil
  1123.    (:stack-trap #xA8B5 textptr textlength offset leadingedge nbreaks offsets ((+ (ash 32786 16) 65506) :signed-longint)))
  1124.  
  1125. (deftrap _truncstring ((width :signed-integer) (thestring (:pointer (:string 255))) (truncwhere :signed-integer))
  1126.    (:stack :signed-integer)
  1127.    (:stack-trap #xA8B5 width thestring truncwhere ((+ (ash 33288 16) 65504) :signed-longint)))
  1128.  
  1129. (deftrap _trunctext ((width :signed-integer) (textptr :pointer) (length (:pointer :signed-integer)) (truncwhere :signed-integer))
  1130.    (:stack :signed-integer)
  1131.    (:stack-trap #xA8B5 width textptr length truncwhere ((+ (ash 33292 16) 65502) :signed-longint)))
  1132.  
  1133. (deftrap _replacetext ((basetext :handle) (substitutiontext :handle) (key (:string 15)))
  1134.    (:stack :signed-integer)
  1135.    (:stack-trap #xA8B5 basetext substitutiontext key ((+ (ash 33292 16) 65500) :signed-longint)))
  1136.  
  1137. (deftrap _npixel2char ((textbuf :pointer) (textlen :signed-long) (slop :signed-long) (pixelwidth :signed-long) (leadingedge (:pointer :boolean)) (widthremaining (:pointer :signed-long)) (stylerunposition :signed-integer) (numer :point) (denom :point))
  1138.    (:stack :signed-integer)
  1139.    (:stack-trap #xA8B5 textbuf textlen slop pixelwidth leadingedge widthremaining stylerunposition numer denom ((+ (ash 33314 16) 46) :signed-longint)))
  1140.  
  1141. (deftrap _nchar2pixel ((textbuf :pointer) (textlen :signed-long) (slop :signed-long) (offset :signed-long) (direction :signed-integer) (stylerunposition :signed-integer) (numer :point) (denom :point))
  1142.    (:stack :signed-integer)
  1143.    (:stack-trap #xA8B5 textbuf textlen slop offset direction stylerunposition numer denom ((+ (ash 33308 16) 48) :signed-longint)))
  1144.  
  1145. (deftrap _ndrawjust ((textptr :pointer) (textlength :signed-long) (slop :signed-long) (stylerunposition :signed-integer) (numer :point) (denom :point))
  1146.    nil
  1147.    (:stack-trap #xA8B5 textptr textlength slop stylerunposition numer denom ((+ (ash 32790 16) 50) :signed-longint)))
  1148.  
  1149. (deftrap _nmeasurejust ((textptr :pointer) (textlength :signed-long) (slop :signed-long) (charlocs :pointer) (stylerunposition :signed-integer) (numer :point) (denom :point))
  1150.    nil
  1151.    (:stack-trap #xA8B5 textptr textlength slop charlocs stylerunposition numer denom ((+ (ash 32794 16) 52) :signed-longint)))
  1152.  
  1153. (deftrap _nportiontext ((textptr :pointer) (textlen :signed-long) (stylerunposition :signed-integer) (numer :point) (denom :point))
  1154.    (:stack :signed-long)
  1155.    (:stack-trap #xA8B5 textptr textlen stylerunposition numer denom ((+ (ash 33810 16) 54) :signed-longint)))
  1156.  
  1157. ; $ENDC                         ;  UsingScript 
  1158.  
  1159. ; $IFC NOT UsingIncludes
  1160.  
  1161. ; $ENDC
  1162.  
  1163.  
  1164. (export '($femptyformatstring $fextraseparator $fextrapercent $fbadpartstable
  1165.           $fformstrisnan $fformatoverflow $fextraexp $fmissingliteral
  1166.           $fextradecimal $fmissingdelimiter $fspuriouschars $foutofsynch
  1167.           $fbestguess $fformatok $fzero $fnegative $fpositive $smbreakoverflow
  1168.           $smbreakchar $smbreakword $res3field $res2field $res1field $pmfield
  1169.           $weekofyearfield $dayofyearfield $dayofweekfield $secondfield
  1170.           $minutefield $hourfield $dayfield $monthfield $yearfield $erafield
  1171.           $crash $badending $baddelim $stringoverflow $tokenoverflow $tokenok
  1172.           $smmiddlestylerun $smrightstylerun $smleftstylerun $smonlystylerun
  1173.           $smtruncerr $smtruncated $smnottruncated $smtruncmiddle $smtruncend
  1174.           $toggleerr5 $toggleerr4 $toggleerr3 $toggleoutofrange $togglebadnum
  1175.           $toggleunknown $togglebadchar $togglebaddelta $togglebadfield
  1176.           $toggleok $toggleundefined $datestdmask $pmmask $weekofyearmask
  1177.           $dayofyearmask $dayofweekmask $secondmask $minutemask $hourmask
  1178.           $daymask $monthmask $yearmask $eramask $maxdatefield $validdatefields
  1179.           $gencdevrangebit $togdelta12hourbit $togcharzcyclebit
  1180.           $togchar12hourbit $smalldatebit $fvnumber $curnumberpartsversion
  1181.           $tokmaxsymbols $tokeminus $tokeplus $tokdecpoint $tokescape
  1182.           $tokseparator $tokthousands $tokminussign $tokplussign $tokpercent
  1183.           $tokzerolead $toknonleader $tokleader $tokleadplacer $tokrightquote
  1184.           $tokleftquote $tokencarat $tokentilda $delimpad $tokennil
  1185.           $tokencenterdot $tokenellipsis $tokenperthousand
  1186.           $tokenrightsingguillemet $tokenleftsingguillemet $tokenintlcurrency
  1187.           $tokenfraction $tokennobreakspace $tokendollar $tokenhash $tokencolon
  1188.           $tokeninfinity $tokencappi $tokenmicro $tokenintegral $tokensigma
  1189.           $tokenroot $tokenpi $tokenquestion $tokenbar $tokenatsign
  1190.           $tokenampersand $tokenunderline $tokencaret $tokenpercent
  1191.           $tokensemicolon $token1quote $token2quote $tokenright1quote
  1192.           $tokenleft1quote $tokenright2quote $tokenleft2quote $tokenperiod
  1193.           $tokencomma $tokentilde $tokenexclam $tokenexclamequal
  1194.           $tokenlessgreat $tokennotequal $tokencolonequal $token2equal
  1195.           $tokengreatequal1 $tokengreatequal2 $tokenlessequal1 $tokenlessequal2
  1196.           $tokenequal $tokengreat $tokenless $tokenbackslash $tokenslash
  1197.           $tokenplusminus $tokendivide $tokenasterisk $tokenminus $tokenplus
  1198.           $tokenrightenclose $tokenleftenclose $tokenrightcurly $tokenleftcurly
  1199.           $tokenrightbracket $tokenleftbracket $tokenrightparen $tokenleftparen
  1200.           $tokenreserve2 $tokenreserve1 $tokenaltreal $tokenrealnum
  1201.           $tokenaltnum $tokenescape $tokenliteral $tokenrightcomment
  1202.           $tokenleftcomment $tokennewline $tokennumeric $tokenalpha
  1203.           $tokenrightlit $tokenleftlit $tokenwhite $tokenunknown $tokenempty
  1204.           $tokenintl $datetimeinvalid $datetimenotfound $cantreadutilities
  1205.           $tokenerr $sepnotconsistent $toomanyseps $extraneousstrings
  1206.           $fieldordernotintl $sepnotintlsep $leftoverchars $longdatefound
  1207.           $fataldatetime $hachek $ogonek $doubleacute $cedilla $ringmark
  1208.           $overdot $brevemark $macron $tilde $circumflex $dotlesslwri
  1209.           $graveupru $circumflexupru $acuteupru $graveupro $applelogo
  1210.           $circumflexupro $acuteupro $graveupri $diaeresisupri $circumflexupri
  1211.           $acuteupri $graveupre $diaeresisupre $acuteupra $circumflexupre
  1212.           $circumflexupra $perthousand $basedblquote $basesingquote
  1213.           $centereddot $dbldagger $flligature $filigature $rightsingguillemet
  1214.           $leftsingguillemet $intlcurrency $fraction $diaeresisupry
  1215.           $smuprhalfcharset $smfondend $smfondstart $romanflags $romanappfond
  1216.           $romansysfond $smfnametagenab $smfdualcaret $smfshowicon $smsfreverse
  1217.           $smsfligatures $smsfforms $smsfautoinit $smsfb0digits
  1218.           $smsfnoforcefont $smsfcontext $smsfnatcase $smsfsingbyte
  1219.           $smsfintellcp $smkeydisablekybdswitch $smkeyswapinputmethod
  1220.           $smkeynextinputmethod $smkeytoggledirection $smkeytoggleinline
  1221.           $smkeyenablekybds $smkeydisablekybds $smkeyswapkybd $smkeynextkybd
  1222.           $smkeyswapscript $smkeysysscript $smkeynextscript $smscriptaliasstyle
  1223.           $smscriptvalidstyles $smscripthelpfondsize $smscriptappfondsize
  1224.           $smscriptsysfondsize $smscriptsmallfondsize $smscriptpreffondsize
  1225.           $smscriptmonofondsize $smscriptname $smscriptfile $smscriptcreator
  1226.           $smscripttrap $smscriptprint $smscripticon $smscriptkeys
  1227.           $smscriptnumdate $smscriptlang $smscriptencoding $smscripttoken
  1228.           $smscriptflags $smscriptsort $smscriptdate $smscriptnumber
  1229.           $smscriptbundle $smscriptappfond $smscriptsysfond $smscriptredraw
  1230.           $smscriptjust $smscriptright $smscriptenabled $smscriptmunged
  1231.           $smscriptversion $smregioncode $smkchrcache $smdoublebyte
  1232.           $smcharportion $smoverride $smgenflags $smkeyswap $smkeycache
  1233.           $smsysref $smkeyscript $smlastscript $smsysscript $smprint $smdefault
  1234.           $smforced $smintlforce $smfontforce $smbidirect $smenabled $smmunged
  1235.           $smversion $smredrawline $smredrawword $smredrawchar $smbadscript
  1236.           $smbadverb $smnotinstalled $smmaskbopomofo2 $smmaskjamo2
  1237.           $smmaskhangul2 $smmaskgana2 $smmaskkana2 $smmaskkana1 $smmaskascii2
  1238.           $smmaskascii1 $smmasknative $smmaskascii $smmaskall $smtransupper
  1239.           $smtranslower $smtransbopomofo2 $smtransjamo2 $smtranshangul2
  1240.           $smtransgana2 $smtranskana2 $smtranskana1 $smtransascii2
  1241.           $smtransascii1 $smtranssystem $smtranscase $smtransnative
  1242.           $smtransascii $smhilite $smrightcaret $smleftcaret $smchar2byte
  1243.           $smchar1byte $smcharupper $smcharlower $smcharright $smcharleft
  1244.           $smcharvertical $smcharhorizontal $smjamobogmoeum $smjamomoeum
  1245.           $smjamobogjaeum $smjamojaeum $smfisclassuser $smfisclasslvl2
  1246.           $smfisclasslvl1 $smideographicuser $smideographiclevel2
  1247.           $smideographiclevel1 $smkanasoftok $smkanahardok $smkanasmall
  1248.           $smpunctgraphic $smpunctrepeat $smpunctblank $smpunctsymbol
  1249.           $smpunctnumber $smpunctnormal $smcharfisrussian $smcharfisgreek
  1250.           $smcharfisideo $smcharfisgana $smcharfiskana $smcharjamo
  1251.           $smcharhangul $smcharbidirect $smchartwobyterussian
  1252.           $smchartwobytegreek $smcharideographic $smcharhiragana
  1253.           $smcharkatakana $smcharextascii $smchareuro $smcharascii $smcharpunct
  1254.           $smcdoublemask $smcuppermask $smcrightmask $smcorientationmask
  1255.           $smcclassmask $smcreserved $smctypemask $smmiddlebyte $smlastbyte
  1256.           $smfirstbyte $smsinglebyte $intoutputmask $inteuropean $intjapanese
  1257.           $introman $intarabic $intwestern $calpersian $calcoptic $caljewish
  1258.           $caljapanese $calarabiclunar $calarabiccivil $calgregorian $smsindhi
  1259.           $smslavic $smamharic $smrussian $smchinese $smuninterp $smextarabic
  1260.           $smvietnamese $smeasteurroman $smethiopic $smgeez $smmongolian
  1261.           $smtibetan $smsimpchinese $smarmenian $smgeorgian $smlaotian $smthai
  1262.           $smkhmer $smburmese $smsinhalese $smmalayalam $smkannada $smtelugu
  1263.           $smtamil $smbengali $smoriya $smgujarati $smgurmukhi $smdevanagari
  1264.           $smrsymbol $smcyrillic $smgreek $smhebrew $smarabic $smkorean
  1265.           $smtradchinese $smjapanese $smroman $smcurrentscript $smsystemscript))
  1266. (provide-interface 'script)
  1267.